home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / flic / flic-walker.scm < prev    next >
Encoding:
Text File  |  1994-09-27  |  688 b   |  6 lines  |  [TEXT/CCL2]
  1.     (define-local-syntax (,definer-name type args . body)
  2.      `(define-walker-method ,',name ,type ,args ,@body))
  3.        (define (,name ,@args)
  4.      (call-walker ,name ,@args)))))
  5.  
  6.